-- background: 2710 from stack: in
-- bmap block id: 3172
-- flags: 0000
-- background id: 0
-- name: page
----- HyperTalk script -----
on arrowKey choice
  if choice is "left" then
    visual scroll right
    pass arrowKey
  else
    if choice is "right" then
      visual scroll left
      pass arrowKey
    end if
  end if
end arrowKey



-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=6 top=310 right=334 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home Stack
----- HyperTalk script -----
on mouseUp
  visual dissolve
  go "home"
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=243 top=308 right=327 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cpy->Bkgnd
----- HyperTalk script -----
on mouseUp
  set cursor to watch
  set lockScreen to true
  choose select tool
  drag from 5,25 to 503,302
  doMenu "Copy Picture"
  doMenu "Background"
  doMenu "Paste Picture"
  doMenu "Invert"
  put the filled into oldFilled
  put the pattern into oldPattern
  set the filled to true
  set the pattern to 16
  choose rectangle tool
  drag from 4,24 to 504,303
  --another approach:
  --doMenu "Background"
  --push card
  --go card "info"
  --drag from 5,25 to 503,302
  --doMenu "Copy Picture"
  --pop card
  --doMenu "Background"
  --doMenu "Paste Picture"
  doMenu "Transparent"
  choose select tool
  drag from 5,25 to 503,302
  doMenu "Invert"
  doMenu "Background"
  choose browse tool
  set the filled to oldFilled
  set the pattern to oldPattern
  set lockscreen to false
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=333 top=308 right=327 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear Bkgnd
----- HyperTalk script -----
on mouseUp
  set cursor to watch
  set lockScreen to true
  doMenu "Background"
  choose select tool
  drag from 5,25 to 503,302
  doMenu "Clear Picture"
  doMenu "Background"
  choose browse tool
  set lockScreen to false
end mouseUp



-- part 37 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=155 top=308 right=327 bottom=241
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add Page
----- HyperTalk script -----
on mouseUp
  doMenu "New Card"
  put "(Press command-tab if you lose the Tools.)" into field "notes"
end mouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=67 top=308 right=327 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show Tools
----- HyperTalk script -----
on mouseUp
  show tool window at 400,50
  show background button "Hide Tools"
  show background field "notes"
end mouseUp



-- part 39 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=67 top=308 right=327 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hide Tools
----- HyperTalk script -----
on mouseUp
  hide tool window
  hide background button "Hide Tools"
  hide background field "notes"
end mouseUp



-- part 45 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=122 top=328 right=341 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: notes


-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=40 top=309 right=336 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 25002 / 25002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mouseUp
  push card
  go card "about louie toons"
  repeat until the mouseClick
  end repeat
  pop card
end mouseUp



-- part 47 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=426 top=308 right=325 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: previous page
----- HyperTalk script -----
on mouseDown
  global alreadyPaged
  put false into alreadyPaged
  pass mouseDown
end mouseDown

on mouseStillDown
  global alreadyPaged
  wait 10
  visual effect scroll right
  put true into alreadyPaged
  go to previous card
end mouseStillDown

on mouseUp
  global alreadyPaged
  if alreadyPaged is false then
    visual effect scroll right
    go to previous card
  end if
end mouseUp



-- part 48 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=448 top=310 right=338 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: don't delete
----- HyperTalk script -----
on mouseUp
  put the ticks into originalTicks
  put true into doubleClick
  repeat until the mouseClick or doubleClick is false
    if the ticks - originalTicks > 30 then put false into doubleClick
  end repeat
  go first card in this background
  if doubleClick then
    show (the number of cards in this background - 1) cards
  else
    repeat for the number of cards in this background - 1
      wait 10
      go next card
    end repeat
  end if
end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=481 top=308 right=325 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: next page
----- HyperTalk script -----
on mouseDown
  global alreadyPaged
  put false into alreadyPaged
  pass mouseDown
end mouseDown

on mouseStillDown
  global alreadyPaged
  wait 10
  visual effect scroll left
  put true into alreadyPaged
  go to next card
end mouseStillDown

on mouseUp
  global alreadyPaged
  if alreadyPaged is false then
    visual effect scroll left
    go to next card
  end if
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=425 top=324 right=341 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: first page
----- HyperTalk script -----
on mouseUp
  visual iris open
  go first card of this background
end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=482 top=324 right=341 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 29903 / 29903
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: last page
----- HyperTalk script -----
on mouseUp
  visual iris open
  go last card of this background
end mouseUp